home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00750_DE- lec bt lec.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  695 b   |  32 lines

  1. on mouseDown
  2.   global gBoutons, gNumSpr, g1erSprLoc
  3.   set gNumSpr to g1erSprLoc + 1
  4.   gBoutons(appuie, gNumSpr)
  5. end
  6.  
  7. on MouseClick
  8.   global gNumSpr, gBoutons, gScopeDe
  9.   if word 1 of the name of cast the castNum of sprite gNumSpr = "BTGPOS" then
  10.     gBoutons(habille, gNumSpr, "BTGAVN 1")
  11.     puppetSprite(gNumSpr, 1)
  12.     gScopeDe(SetCadence, 0)
  13.   else
  14.     gBoutons(habille, gNumSpr, "BTGPOS 1")
  15.     puppetSprite(gNumSpr, 1)
  16.     gScopeDe(SetCadence, 1)
  17.   end if
  18. end
  19.  
  20. on mouseUp
  21.   global gBoutons, gNumSpr, g1erSprLoc, gSurvolPrec
  22.   curseur(1)
  23.   set monNumSpr to g1erSprLoc + 1
  24.   if gNumSpr = monNumSpr then
  25.     MouseClick()
  26.   else
  27.     pass()
  28.   end if
  29.   set gSurvolPrec to -1
  30.   updateStage()
  31. end
  32.